COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	entry
C00004 ENDMK
C⊗;
entry;
begin

  require  "define.sai"  source!file;
  require  "sseg.dcl"  source!file;

  integer  ssegno;

  internal  simple  procedure  ssgexer;
  begin
  integer  ssno, s1, s2;
  integer  task;

    simple  procedure  menu;
    begin
      print(" Following can be tested.",crlf,
      "  1. Segments of a supersegment.",crlf,
      " ",crlf);
    end;

    ssegno := nofssg;
    ssno := 1;
    do  begin
      menu;  iprmpt(" Task",task);
      iprmpt(" Supersegment for exercise",ssno);
      if  not ( 1 <= ssno <= ssegno)  then  done;
      ssginid(ssno);

      case  task  of
      begin
      [1]   begin
              segrange(ssno,s1,s2);  print(s1," to ",s2);
            end
      end;

      SSNO := SSNO + 1;
    end  until  false;
  end;  

end;